|
|  Rules for Scorpion patience
|  Written by David J Seery,
|  Modified by Ph. DONSBACK for sequences definition, and layout update.
|
|  The cards are dealt in a tableau of seven rows of seven columns; the
|  remaining 3 cards are kept in the pack until play becomes blocked.
|  The first three cards of the four left hand columns are dealt face down
|  to begin with. The stacks are descending value, same suit, and the object
|  is to get four stacks of king to ace, of the same suit. You can drag any
|  number of cards onto a stack as long as the join matches - in other words
|  they are ShallowCheck stacks.
|
SCRIPT_TYPE 1
|
BEGIN "Scorpion"

  FLAGS ClickFly AnimateFly
  PACKS 1
  WIDTH 8 * CW
  HEIGHT 15 * CH
  ZEROTOWIN 4 - SEQUENCES$3

  STACK
    X 7 * CW
    Y 0
    MAX 0
    DEAL 3
    DEALTO 3,1
    TAKEFROM 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 2
  END

  FOR stack = 0 TO 3
    STACK
      X stack * CW
      Y 0
      FIRST 13
      ID 3
      JOINOFFSET -1
      Sequence SeqSS__, x13, -1, 13
      DEAL 7, 4
      FLAGS ShallowCheck JoinSS__ ClickFly
    END
  END

  FOR stack = 4 TO 6
    STACK
      X stack * CW
      Y 0
      FIRST 13
      ID 3
      JOINOFFSET -1
      Sequence SeqSS__, x13, -1, 13
      DEAL 7, 0
      FLAGS ShallowCheck JoinSS__ ClickFly
    END
  END

END
